home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / twins.com / SCRDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-15  |  1.5 KB  |  63 lines
  1. PROGRAM ScrDemo;
  2. Uses Crt,Screens,Windows;
  3.  
  4. VAR
  5.     W1,W2,W3,W4 : WindowPtr;
  6.     Ch : CHAR;
  7.     InitScreen : ScrPtr;
  8.  
  9. BEGIN
  10.     CursorOff;
  11.     InitScreen := SaveScreen;
  12.     SetVirtualPage(1);
  13.     FillArea(1,1,25,80,LightCyan+BlueBG,#176);
  14.     NEW(W1,Init);
  15.     ShadowColor := Blue;
  16.     W1^.MakeWin(10,20,15,60,White+RedBG,RedBG,SolidBrdr,#32,TRUE);
  17.     W1^.WriteWinC(12,'This is Page 1');
  18.     W1^.WriteWinC(13,'Press any key....');
  19.  
  20.     SetVirtualPage(2);
  21.     FillArea(1,1,25,80,LightCyan+GreenBG,#176);
  22.     NEW(W2,Init);
  23.     ShadowColor := Green;
  24.     W2^.MakeWin(10,20,15,60,White+MagentaBG,MagentaBG,DoubleBrdr,#32,TRUE);
  25.     W2^.WriteWinC(12,'This is Page 2');
  26.     W2^.WriteWinC(13,'Press any key....');
  27.  
  28.     SetVirtualPage(3);
  29.     FillArea(1,1,25,80,Yellow+BlackBG,#176);
  30.     NEW(W3,Init);
  31.     ShadowColor := Brown;
  32.     W3^.MakeWin(10,20,15,60,White+RedBG,RedBG,Stars,#32,TRUE);
  33.     W3^.WriteWinC(12,'This is Page 3');
  34.     W3^.WriteWinC(13,'Press any key....');
  35.  
  36.     SetVirtualPage(0);
  37.     FillArea(1,1,25,80,LightMagenta+BlackBG,#176);
  38.     NEW(W4,Init);
  39.     ShadowColor := Magenta;
  40.     W4^.MakeWin(10,20,15,60,White+RedBG,RedBG,Stars,#32,TRUE);
  41.     W4^.WriteWinC(12,'This is Page 0');
  42.     W4^.WriteWinC(13,'Press any key....');
  43.  
  44.     Ch := ReadKey;
  45.     SetVisiblePage(1);
  46.   Ch := ReadKey;
  47.     SetVisiblePage(2);
  48.   Ch := ReadKey;
  49.     SetVisiblePage(3);
  50.   Ch := ReadKey;
  51.     SetVisiblePage(0);
  52.     Ch := ReadKey;
  53.     DISPOSE(W1,Done);
  54.     SetVirtualPage(1);
  55.     DISPOSE(W2,Done);
  56.     SetVirtualPage(2);
  57.     DISPOSE(W3,Done);
  58.     SetVirtualPage(3);
  59.     DISPOSE(W4,Done);
  60.     SetVirtualPage(0);
  61.     RestoreScreen(InitScreen);
  62.     CursorOn;
  63. END.